From 5c1de75f02582454be0cd0ea4c67221a7364ee77 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 22 Jan 2004 00:17:18 +0000 Subject: [PATCH] (ccl-encode-windows-1251-font): Rearrange code point (register r0) only for charset mule-unicode-0100-24ff. --- lisp/language/cyrillic.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 60ebf52fe35..dc05f24698a 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -476,11 +476,11 @@ Support for Russian using koi8-r and the russian-computer input method.") (push elt ctext-non-standard-encodings-alist))) (define-ccl-program ccl-encode-windows-1251-font - '(0 - ((r1 <<= 7) - (r1 += r2) - (translate-character encode-windows-1251 r0 r1) - ))) + `(0 + ((if (r0 == ,(charset-id 'mule-unicode-0100-24ff)) + ((r1 <<= 7) + (r1 += r2))) + (translate-character encode-windows-1251 r0 r1)))) (add-to-list 'font-ccl-encoder-alist '("microsoft-cp1251" . ccl-encode-windows-1251-font)) -- 2.30.2